.DO External 

.LSTON 

.Page 

>>.T>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Resictent 

> 

> This module contains all the routines (. besides the ZS initialization 

> procedures > that must be resident within itte Z8. 

> 

> RESIDENT PROCEDURE BsyjClr< Merofldr : PTR { ! IWrk_lo+C > > 

> Response : BVTE { Wrk_lo+$fl } 

> CnindJ='ending : BIT { Urk_lo+$B/Bi t 7 } 

> IBsy : BIT { Wrk_lo+$B/Bi t 6 } 

> > 

> RESIDENT PROCEDURE Ua itJCmd< CH»nd_Pend i ng : BOOLEAN { !rB/bit 7 } 

> Response : BVTE { !rfl > 

> IBsy : BOOLEAN { IrB/bit 6 } 

> tlemAdr : PTR { llrC > 

> ? 

RESIDENT PROCEDURE GetJ4r_Data< Response : BVTE { IrQ } ) 

> RESIDENT PROCEDURE fick_Read< Response ) 

RESIDENT FUNCTION Wr_Resident : Status : BVTE { !rO > 

> RESIDENT FUNCTION Fmt-Resident : Status : BVTE { !rO > 

> RESIDENT FUNCTION RdHdr_Resident : Status : BVTE { !r-0 > 

> RESIDENT FUNCTION RdJJesident : Status : BVTE { !rO > 

> RESIDENT SubFUNCTION StartJStNach 

> FUNCTION Sub3< fl, B : 3 BVTES { Ir0:2, lrC:E } > : 3 BVTES { !r0:2 } 

> FUNCTION fldd3< A, B : 3 BVTES { !r0.2. !rC:E > ) : 3 BVTES { Ir0:2 } 

> PROCEDURE Set-BaffiBank< Ram_Bank : BVTE { !rO ) > 

> PROCEDURE Set_Led< State : BIT { IrO/bit > > 

> FUNCTION LoadStatus : BVTE { IrO } 

> PROCEDURE SetStatus< StatusByte : BVTE { IrO > 

> Ualue : BVTE { !r1 ) 

> > 

> PROCEDURE SetJ3mtC Parent 1, Parent2 : BVTE { !rB, !rO > > 

> PROCEDURE Cjr_Drot 

> FUNCTION For!natBlock< Paraent : BVTE { !r8 > > : 

> BOOLEAN 

> Status : BVTE { IrO > 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 External 

.LSTON 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: BsyJClr 



Inputs: 

Response 
Crond JPend i nq 
IBsy 
NemRdr 

Outputs: { none } 



BVTE { Urk_lo+$A > 
BIT { Wrk_lo+$B/Bit 7 > 
BIT { Wrl<._lo+$B/Bit 5 > 
PTR, { MrC ) 



> BEGIN 

> WHILE CND DO BEGIN END { busy uiait on CND } 

> Set up memory select: Apple < — > Nem 

> Memory_Rddress_Reg i ster := MemAdr 



; Reset BSY 

;> WHILE NOTC CMD > DO BEGIN END { busy wait on CND- } 

;> JUI1P< StartJCommand > { begin a new command } 

; > END 

;> 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

-Page 

.FIN 

Clr_Bsy: 

Srp *Wrk_lo 

Ld ! For t2 , «No t_S tar tL+D i sk_riem+DriuL_Read+Bsy 

Lde @llrC,!rC 

Ld P3mJP3mJ5tNach 

find IPort3. .'DmJIask ;set DN/loPort to Loui 

Ld POlm, IPOImJStNach 

Ld !Port2,»Not_StartL+Disk_rteffl+Dr«>L_Read+Bsy ; toggle fiOE 

Tm !rB^*NultlUr ; check for mut I i-wr i te command 

Jr Z,Clr_Bsy_Rd 

Ld ! Por t2, «Not_Star tL+flpp I eJlem 

Jr C I r_Bsy 1 

Clr_Bsy_Rd : Ld ! Por t2^«NotJS tar tL+flpp I e_l1em+Dra>L_Read 

C I r_Bsy 1 : Ld I rF , «Cmd ; i oad mask 

Ld !rC,«.HIBVTE. Crond_Ptr ;Neroftdr := Command Buffer 

Ld lrD,«.LOMBVTE. Cmnd-Ptr 



Tro IPort2JrF ;te£t for CMD active hi 

Jr Z,Bsy_Lp2 

\ / ln_Line code^, done for SPEED! 
.LSTOFF 

.DO External 
.LSTON 
.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: UaitJCmd 

> 

> Inputs: 

> Cmnd-Pending : BOOLEAN/ { !rB/bit 7 } 

> Response : BVTE/ { !rfl > 

> IBsy : BOOLEAN, { !rB/bit 6 > 

> Nemfidr : PTR, { !!rC } 

> 

> Outputs: { none > 

> fl I gor i thffi : 

> ' 

> BEGIN 

> Set up memory select: fipple < — > Z8 

> UHILE NOT< CND ) 00 BEGIN END { busy mait on CND- } 

> Ur iteC Response > to Apple 

> Set BSV 



Bsy_Lp2: 



> WHILE CMD DO BEOIH HMD { busy wait on CMD > 

> Read<: flpp I e jResonse ) from Apple 

> IF < flpp I e_Response = $55 > 

> THEn 

> IF HOTC IBsy ) 

> THEH 

> Memory_fiddressJ5egister := Memfidr 

> Reset BSV 

> WHILE NOT< CMD > DO BEGIN EMD { busy wait on CMD- } 

> Set up memory select: Z8 < — > Mem 

> IF Cmnd_Pendinq 

> THEM RETURM 

> ELSE JUMP< StartJCommand ) { begin a new command } 

> ELSE RBORK flpp I e_ Inter face-Exception, Cmnd_Pending, 

> Response, flpp I e_Response > 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO internal 

.LSTON 

. Page 

.FIN 

MaitJCmd: 

Ld POlm, !P01m_}mage ; restore port to load adr 

Ld !Port2,«Not_StartL+DiskJ1em+DrwLJ=5ead 
Lde §l!rC, !rC ;set external memory address 

Wq i tXmd t : Ld ! Por t2, «Not_S tar tL+Z8_flpp I e+Dru>L_Read 

Ld PO Im, «POJ03_fldr+PO_47_Out+Stack_! n+P 1_0ut 

Ld IPortl.lrfl ; Apple gets Response 

Ld ! Por t2, «No t JS tar tL+Z8_App I e+Dru>L_Read+Bsy 

Ld lrF,«Cmd 

Ld I r€ . #Ap I _fick ;get ready for response 

Ld !rD",*IBsy 

Cmd_Lp2: Tm !Port2, !rF ; test for CMD inactive low 

Jr Nz,CmdlLp2 

;Make Port! an input 

Ld PO Im, «POJ03-fidr+P0_47_0ut+S tack_l n+P 1_l n 

Ld !Port2,«NotJStartL+DiskJ1effi+DrwL_Read+Bsy ; strobe ROE 

Ld !Port2,«Not.^tartL+Z8_flpple+DrwL_Read+Bsy ; strobe ROE 

Cp fPortlJrE 
Jr N2,Cmd_NotRck 

Cmd_TstBsy: Tm !rB, IrD ; test IBsy 

Jr Z, No- IBsy 

;get back to System access 

Cffld-Leaue: Ld POlm, IPO 1ffi_l mage 

Ld !Port2,«Not-StartL+Bsy+Z8-Mem+DrwL_Read 

Ld P3m, !P3m_lmage 

Srp **l4rkJSys 

Ret .resume command 



;I1EM <— > Hostdiir) 



; change DH to output 



No_!Bsy: 



Cind_Lp3 : 



Ld 
find 

Ld 

Ld 
Tm 

Jr 

Ld 
Ld 
Ld 
Tm 
Jp 
Ret 



P3m, }P3m_Striach 

[Ports, IDmJIask ;set DM/ioPort low 



I Por t2 , «No t_S tar tL+flpp I e_Meffl 

;test for CUD act i Me hi 



!rF,«Cmd 
!Port2. IrF 
Z,CindJLp3 



POlm, iPOim-lmage 

! Por t2, «Not_jStartL+28J1em+DrwL_Read 
P3m, IP3m_lmage 
! rB, *Cmnd_Pend i ng 
Z,Start_Uector 



CmdJio tfick : Ld IrF , \ For 1 1 

Ld POImJPOIm-lmage 



Ld P3m, IP3m_lffiags 

Ld } Por t2, *Not^tar tL+Bsy+Z8_neffi+Dri.uL_Bead 

Srp #Mrk_Sys 

Cp Wrk_!o+$F,«Free_Proc ; check for Freeing up the bus 

Jp Z , FreeJJec tor 



Mt_£md_Nak: Push l4rk_Io+$F 

Call CIrNorroStat 
CIr IrO ;byte 
Ld !r1,«BadJ55 
Cat ! SetStatus 

Pop !r9 
Cai I fibort 



.LSTOFF 

.DO External 

.LSTOM 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> RESIDENT ROUTINE { source code is in Resident.fissem > 

> 

> Procedure: GetJMrJData { Get Write Data from Host } 

> , ■ 

> Inputs: 

> Response : BVTE, { Mrk-.lo+$fl > 

> 
> 

> BEGIN 

> WaitJCii!d< CoiRinand-Pending, Response. NotlBsy, MBufferl > 

> WaitJCfRd< Command-Pending/ EndWri teResponse, iBsy, MBuffer-l > 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 



.Fm 

Get_WrJ3ata: 

Srp »Wrk_lo 

Ld }rB/*Cmnd-Pend inq ; Cmnd_Pend i nq := True, IBsy := False 

Ld !rC,«.HIBVTE. MBufferl 

Ld !rD,«.LOUBVTE. NBuf far 1 

Call MaltJCind 

Ld ! rfl . *Erid_J«lr_Response 

Ld ! rB J, »Cfflnd_Pend i ng+ 1 Bsy ; Cmnd J=*end i ng : = True 
Call Ua it JCmd 

Srp *l-lrk_Sys 
Ret 

.LSTOFF 

.00 External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> RESIDENT ROUTINE { source code is in Resident.flssem > 

> Procedure; flck_Bead { Acknowledge read command, set BSY } 

> 

> Inputs: 

> Response : BVTE { Wrk_}o+$fi > 

> 

> Cfutputs; { none } 
> 

> BEGIN 

> WaitJCmd( Command_Pending, Response. Bsy, x ) 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 internal 
.LSTON 
. Page 
FIN 

flck_Bead: 

Srp *Wrk_ lo 

Ld I rB , *Cfflnd_Pend i ng+ 1 Bsy 
Call Wa}t_Cmd1 

Srp »l-}rk_Sqs 
Ret 

.LSTOFF 

.DO External 

.LSTON 

-Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

;> 

;> Function: f4r_Resident { Mr i te Resident } 

; > 

'/> This function exists primarily because the architecture of the 

;> Widget Controller prevents the Z8 from executing instructions 



> from externa t program memory while thr state machine Is running. 
> 

> Inputs: { none } 



;> Outputs: 

;> Status: BYTE { !rO } 

;> 

; > ft I gor i thm : 

; > 

;> BEGIN 

;> Mse}0:1 := Disk < — > Mem 

;> Set-up external ram address counter for WRITE 

;> DiskRU := Write 

;> RdHdrH := False 

;> IF < Cylinder > RWlJCylinder > 

;> THEN 
; > PC := True 

:> RWl := True 

; > ELSE 
;> PC := False 

;> RUl := False 

;> StartStateMachine 
END 



>>>>>>>>>>>;•>>>>>>>>>>>>; 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

-Page 

.FIN 



MrJ^esident: Srp *l4rk_lo 

Ld ! Por t2, »Not JStar tL+Bsy+D i sk_l1em 

Ld !rE,Hi_Rwi_Reg 

Ld !fH^,Lo_Rwi_Reg 

Sub I r F ^ Cy I ! nder + 1 ; check for < > RI4 1 JCy I i nder > 

Sbc !rE, Cylinder 

Jr Lt,WPC_Else 

Ld !rR,»$7F ;bfts inactive 

Jr UPC_End 

WPCEIse: Ld }rft,»$?F-RWI-PC 

WPC_End: Jr Rd_Res2 

.LSTOFF 

.00 External 

.LSTON 

.Page 

: >:>:>>:>>>>:>>>>>.>>>>>>>>>>>>>>>>>>> 



> 



Function: Fmt_Resident { Format Resident } 



: > 



;> This function exists primarily because the ar chi tec ture of the 

Widget Controller prevents the Z8 from executing Instnjctions 
from external p-^ogram memory ujhi le thr state machine is running. 

Irputs: { none ) 



> Outputs: 

> Status: BVTE { !rO > 

:> 

> fl I gor- i thm : 

> 

> BEGIN 

> Mse{0:1 := Disk <—> Mem 

> Set-up external ram address counter for FORMRT 

> DiskRW := Write 

> RdHdrH := True 

> IF < Cylinder > RWlJCq Under ) 

> THEN 

> PC := True 

> RWI := True 

> ELSE 

> PC := False 

> RWI := False 

> StartStateMachine 

> END 

> 

>>>>>>>>>>>>>>:>>>>>>>>>:>:>>>>:>>:>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

-Paqe 

.Ffii 



Fmt_Resident: Srp *Wrk_!o 

Ld ! Por t2, *Not^tar tL+Bsy+D i sk_riem 

Ld ! rE H i JRw i _Reg 

Ld !rF,Lo_Ryj|_Reg 

Sub lrF",Cylinder+t ; check for C > RWI JCyl inder > 

Sbc irE.Cy I inder 

Jr Lt,FPC_Else 

Ld !rfl,*$FF ;bjts inactlMe 

Jr FPCJEnd 

FPC_Else: Ld !rfl,»$FF-RWI-PC 

FPC_End: Ld !rE.«.HIBVTE. Forroatftrray 

Ld !rF,«.LOWBVTE. Forma tflrray 

Jr Start-Striach 

.LSTOFF 

.DO External 

.LSTON 

.Page 

?■ > > > >>>>>>>>>>>>>>>>>>>>>>>>>> > 

Function: RdHdr_Resident { Read Header Resident > 

This function exists primari ly because the architecture of the 
Widget Controller preuents the Z8 from executing instructions 
from external program memory ujhile thr state machine is running. 

Inputs: { none } 



> Outputs: 

> Status: BVTE { IrO > 

> 

> fllgorithm: 

> 

> BEGIN 

> Mse!0:1 := Disk < — > Mem 

> Set-up external ram address counter for READ 

> DiskRW := Read 

> RdHdrH := True 

> RMI := False 

> PC := False 

> S tar tS ta tetlach i ne 

> END 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>;■ 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 

RdHdr-Fiesident: 

Srp «Wrk_lo 

Ld ! rR , »$FF ; b I ts \ nac t i ve 

Jr Rd_Res 1 

.LSTOFF 

.DO E:sfternal 

.LSTON 

.Page 

:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

Function: Rd_Be£ident { Read Resident } 



> This function exists primari iy because the architecture of the 

> Midget Controller prevents the 28 from executing instructions 

> from external program memory while thr state machine is running. 

> 

> Inputs: { none ) 

> 

> Outputs : 

> Status: BS^TE { IrO > 
> 

> filgorlthm: 

> 

> BEGIN 

> Nse}0:1 := Disk <—> Mem 

> Set-up external ram address counter for READ 

> DiskRM := Read 

> RdHdrH := False 

> PC := False 

> RWI := False 

> StartStateMachine 

> END 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 



.DO Internal 

.LSTON 

-Paqe 

.F\n 



Rd-Resident: 



Srp *l4rk_lo 

Ld ?rfl,*$?F ;blts inactive 



Rd_Rest: Ld !Port2..«NotJStartL+Bsy+DiskJ1ein+DrwL_Read 

Rd_Res2: Ld !rE,«.HIBVTE. ReadRrray 

Ld !rF,«.LOMBVTE. Readflrray 

\ / ; I n-L i ne code for Speed 1 1 
.LSTOFF 

.DO External 

.LSTON 

.Page 

>>>.T> >>>>>>>>>>>>>>>>>>>>>> >>>>>> 
> 

> SubFunction: Start_StMach { StartStatehachine } 

> 

> This is a routine that is shared by al I the resident state machine 

> routines and exists primarily for the purpose of saving space. It's 

> function is to complete the set-up for the state machine and then 

> start it up and wait for it to finish. 

> BEGIN 

> Z8 Port 3, Bit 4 := { instead of DN it is an I/O port } 

> 28 Port 1 := Input { keep Z8 from conflicting with Disk data } 

> SectorsRead := 2 * HumberOf Sec tors 

> WHILE SectorMark DO BEGIN END 

> StartL := True 

> WHILE NOT< SectorDnL > RND ( SectorsRead <> > DO 

> BEGIN 

> IF SectorMark 

> THEN 

> SectorsRead := SectorsRead - 1 

> WHILE SectorHark DO BEGIN END 

> END 

> Z8 Port 3, Bit 4 := DN 

> ZS Port 1 := Rddress/Data 

> MselO: 1 := ZS < — > Nem 

> Status := Status_Port 

> IF EccErr 

> THEN Status. CrcErr or := True 

> StartL := False 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > 
.LSTOFF 
.FIN 

.00 Internal 
.LSTON 
.Page 
FIN 

StartJBtflach: 

Lde §!!rE. IrE jset buffer address 

Ld P3mJP3m_Striach 



find 



•Ports, !Dm_f1ask ;set Dri/!oPort Low 



StJf^es_1 



Ld 
Ld 

Tib 

Jr 

find 

Ld 
Ld 
Ld 
Ld 
Ld 
Cell i 



POlm, jPOImJStllach 
! Porto, !rfi 

1 Ports, *Sec tor Mark ; test for sector mark 
N2,St_Res_1 



!Port2. ! Start Jiask 



; start state machine 



}rfl,«Hot^tartL 
!rB,«Not_£ccErr 
!rE,*SectDnL ; load mask 
! rP, *Sectorl1ark 

MrkjSys+$fi,*< NbrSctrs+2 > ; timeout after 21 sectors 
Set_Drot 



St_ResJ2: 



St_Res_25; 



St_ResJ3: 



St_Bes_4: 



Tm 

Jr 

Dec 

Jr 

Tm 
Jr 

Tern 
Jr 
Tern 
Jr 

Ld 
Ld 
Ld 

Ld 
Ld 
Lde 



!Port3, IrF 
2,St_Res_3 
WrkJSys+$R 
2,St_fles_4 



; count sector marks 



! Ports, IrF 

Nz,St_Res_2J5 ,wait for mark to go away 

I Por tS , ! r E ;ma\ t for s ta te mach i ne to f i n i sh 
2,St_Res_2 

IPwtS, IrE ; sample it twice 
2,St_Res_2 

POlm, !P01m_lmage 

I Por t2, «Bsy+Z8_i1em+Dr«J!>L_Read 

PSm, !P3m_lmage 

! rC, « . H I BVTE . StatusPor t 
! r D , » . LOWBVTE . S ta tusPor t 
lrF,@{ jrC 



Res-Sthach: 



Tm 
Jr 

Or 
Di 



!Port2, !rB 
Z,Res^ccErr 

!Port2, Irfl 



; reset state machine 
•.clear the dead man timer 



Srp 

Ld 

Ret 



«UrkJSy£ 

lrO,Wrk_lo+$F ; re turn StMach status 



Res_EccErr: Tm DiskStat,«MrJOp 

Jr Nz,Res^triach 

find !rF,«$FF-MrtMyldL ; If ECC error 

Jr ResJStMach 



.LSTOFF 

.DO External 

.LSTm 

. Page 

;>>>>>>>>>>>>>>>> > > >>>>>> > 

;> 

;> Function: SubS, flddS 

:> 

;> { RESIDENT ROUTINESf ! } 



> 

> These functions perforin the following 24 bit arithmetic operations 

> 

> Sub3: R <— R - B 

> fldd3: fl <— fl + B 

> 

> Inputs: 

> ft: 3 BVTES { IrO, !r1, !r2 } 

> B: 3 BVTES { !rC, IrD, ?rE > 
> 

> Outputs: 

> R: 3 BVTES { !rO, !r1, Ir2 ) 

>>>>>>>>:>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.Fin 



Sub^ 



Sub !r2JrE 

Sbc IrlJrD 

Sbc IrO.lrC 
Ret 



Rdd3: 



fidd Ir2, IrE 
fldc frlJrO 
fldc IrOJrC 

Ret 

.LSTOFF 

.00 Externa! 

.LSTON 

. Page 

>>>>:>>>>>>>:>>>>:>>>>:>>>>>>>>>>>>>> 
> 

> Procedure: Set-RamBank 

> 

> This procedure activates the 2k bank of ram that is indicated by 

> the Input parameter. 

> 

> Inputs: 

> RaiR_Bank : BVTE { !rO } 

> Outputs: { none ) 

> 

> ftlgorithm: 
'? 

> BEGIN 

> IF < Ram-Bank > 3 > THEN Abort 

> deselect all ram bits 

> select the ram bit pointed to by Ram_Bank 

> END 

> • 

>>>>>>>>>>>>>>>>:*>>>>>>>>>>>>>:>>> 
.LSTOFF 
.FIN 

.DO Interna! 

.LSTOH 



.Page 
.FIH 



Set_Ra!nBank 



Set_RBJStart: 



Cp !r0,»4 

Jr Ll,Sel_RBjStart 

Cal I Abort 

Ld ?r2,«.H!BVTE. Flam_Table 

Ld !r3,«.LOI4BVTE. Rciffi_Table 

R I ! rO ; ffiu 1 1 i p I y j ndex by 2 

Rdd !r3, !rO ; index into table 

fldc !r2.«0 

Ldc ?r1,e!lr2 

inctti ! !r2 

Ldc Ir0,§!!r2 

Ld !r2,«.HIBVTE. RamBankO ;set the adr bits 

Ld !r3.!r0 

Lde ?!!r2, !r3 

Inc !r-2 

Ld !r3Jr1 

Lde §!!r2Jr3 

Ret 



Roiffi-Tab 1 e : 


.DB 


0.0 -.adr 


13 


:= 0. 


adr 


12 


:= 




.DB 


0,1 ;adr 


13 


:= 0. 


adr 


12 


:= 1 




.DB 


1.0 ;adr 


13 


:= 1. 


adr 


12 


:= 




.DB 


1J ;adr 


13 


:= 1. 


adr 


12 


:= 1 



>>>>>>>>>>>>>>: 



.LSTOFF 

.DO External 

.LSTON 

• Page 



>>>>> 



Procedure: Set_Led 

This procedure changes the state of the cc«ntroMer LED. The 
state is determined by the value of State < if State is Odd 
then the Led is lit, otherwise it is turned off >. 



Inputs: 



State : BIT { !rO/bit > 



> 
> 
> 
> 
> 
> 
> 
> 

> 
> 
> 
> 
> 
> 
> 
> 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > 
LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



Outputs: { none ) 
fl I gor i thro : 

BEGIN 

Led! State ] := State 
Bank- 1 nsage . Led : = S ta te 
END 



Set_Led: 



find ExcptjStat,»$FF-Led_Stat 

Or ExcptJStatJrO 

Ld !»-2.«.HIBVTE. Led 

Ld !r3, !rO 
lal 

Xor !rO,«$FF-LedJ1ask ; invert only the Led bit 

Jr SetJ_ed 

Led_14alt: Ld !r2,«.HlByTE Ret 

.LSTOFF 

DO External 
.LSTON 
.Page 

>>>>>>>>>>>>>>>>>>> Inputs: { none } 

> 

> Outputs: 

> Loads tatus : BVTE { !rO } 

> 

:>>:>:> :3- >>:>>>>>:>>>>>:>:»>>>:>>>>>:>>:>:>> > 
.LSTOFF 

.LSTOH 
.Page 
.FIN 

Loads tatus: 

Ld !r2,«.HIBVTE. StatusJPort 

Ld !r3 .LSTOFF 

.00 External 

.LSTON 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
J. 

> Procedure: Se is used to set a particular bit or bits 

> within a specific byte of standard status. 

> 

> Inputs: 

> StatusByte : BYTE { !rO > 

> END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.Fin 

.00 Internal 

.LSTOHPaqe 

.FIN 

Sets tatus: 

Ld !r2.«.HIBVTE. CStatusO 

Ld ?r3,a.L0MBVTE. CStatusO 

Rdd /in 

Lde §}!r2.!r0 

Ret 

.LSTOFF 

.DO External 

.LSTO 

-Page 

y>> >>>>>>>>>>>>>>>>>>>>>> >>>>>> 

; > 

:> Procedure: Set_Dmt { SetDeadtlanT i mer ) 



> This procedure sets the DeadhanT i mer 

> occurs. The SetJDimt routine also initializes the DeadManCounter 

> as well as storing aivay information concerning the process<s> 

> that started the Dmt. 

> Inputs: { none } 

> 

> Outputs: { none ) 

> Algorithm : 

> 

> BEGin 

> Disable Interrupts { enter i Par en t2 

> DeadManCounter := { assume timer interrupts every 10 msecs } 

> Enable Interrupts { leaving critical section } 

> END 



; erna I 

.LSTON 

.Page 

.FIH 

SetJDmt: 

Di ; enter c 

find lrqj*$FF-Timer1 ; clear old eyents 
Ei 
Ret 

.LSTOFF 
■ Page 

;>>>>>>>>>>>>:>>>:>>>>>>>>>:>>>>>> 
; > 

;> Procedure: Clr_Dmt { C I earDeadtlanT i mer } 

; > 

;> This procedure clears the DeadManTimer bthe DeadManTi mer Counter. This routine also 

;> enables the normal Timer. 

; > 

; > Inputs : none 

• ). 

; > Outputs : none 

; > 

;> ftlgorithm : 

;>;:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

. Page 

.FIM 

CIrJDfflt: 

D i ; en ter cr 1 1 1 ca I sec 1 1 on 

Ret 
LSTOFF 

.00 External 

.LSTON 

.Page 

;>>>>>>>>>> :^ >>:>>>>>>>>:>>>:>>>>>>>:> > 
■ > 

;> Procedure Fragment: Chky for debugging purposes. I wanted a place in the 
;> code anhiere the DM could be halted AFTER the host had released 

;> the controller as a process. 



